home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / MPW macros / doAlert < prev    next >
Encoding:
Text File  |  1987-01-26  |  1016 b   |  31 lines  |  [TEXT/MPS ]
  1. #    This interactively builds an ALRT Rez definition
  2. #    Frank Alviani    Monday, January 5, 1987 9:40:06 AM
  3.  
  4. echo "∂/* `request 'Purpose:'` *∂/"
  5. "{MPW}macros:getResAttrs" ALRT
  6. set rr "`request 'BoundRect? (t,l,b,r)'`"
  7.  
  8. set st4 "`request 'St4 - OK|Cancel,invisible|visible,beeps|silent'`"
  9. #expand abbrevs for stage 4
  10. if {st4} =~ /≈[Oo]≈/ ; set s4 OK ; 
  11.     else ; set s4 Cancel ; end
  12. if {st4} =~ /≈[Ii]≈/ ; set s4 "{s4},invisible" ;
  13.     else ; set s4 "{s4},visible" ; end
  14. if {st4} =~ /≈[Bb]≈/ ; set s4 "{s4},beeps" ;
  15.     else ; set s4 "{s4},silent" ; end
  16.     
  17. set s3 "`request -d {s4} 'St3 - OK|Cancel,invisible|visible,beeps|silent'`"
  18. set s2 "`request -d {s4} 'St2 - OK|Cancel,invisible|visible,beeps|silent'`"
  19. set s1 "`request -d {s4} 'St1 - OK|Cancel,invisible|visible,beeps|silent'`"
  20.     
  21. echo "∂{{rr}∂},∂t∂/* rect *∂/"
  22. copy •:Δ/∂n/ "{scr}"    #get saved ID
  23. paste § "{active}"
  24. echo ",∂t∂/* DITL *∂/"
  25. echo "∂{{s4};∂t∂/* Stage4 *∂/"
  26. echo " {s3};∂t∂/* Stage3 *∂/"
  27. echo " {s2};∂t∂/* Stage2 *∂/"
  28. echo " {s1} ∂t∂/* Stage1 *∂/"
  29. echo "∂}∂n∂};"
  30.  
  31.